home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / gfx / edit / AmiCAD_2.07.lha / AmiCAD / ARexx / InitObjets.AmiCAD < prev    next >
Text File  |  1999-11-25  |  828b  |  21 lines
  1. /* Initialisation de variables permettant le test des objets */
  2.  
  3. options results     /* indispensable pour récupérer le résultat des macros */
  4.  
  5. signal on error     /* pour l'interception des erreurs */
  6. signal on syntax
  7.  
  8. 'INIT(COMPOSANT,FIL,ARC,TEXTE,REFERENCE,VALEUR,JONCTION,POINTILLES,BUS,ELLIPSE,CERCLE,INPUT,OUTPUT,LIGNE_DOUBLE,TRAIT,BOITE,BOITE_PLEINE,TRIANGLE,TRIANGLE_PLEIN)'
  9. 'COMPOSANT=1:FIL=2:ARC=3:TEXTE=4:REFERENCE=5:VALEUR=6:JONCTION=7:POINTILLES=8:BUS=9:ELLIPSE=10:CERCLE=10:INPUT=11:OUTPUT=12:LIGNE_DOUBLE=15:TRAIT=21:BOITE=22:JONCTION_CARREE=23:BOITE_PLEINE=24:TRIANGLE=26:TRIANGLE_PLEIN=27'
  10. exit
  11.  
  12. /* Traitement des erreurs, interruption du programme */
  13. syntax:
  14. erreur=RC
  15. 'MESSAGE("Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  16. exit
  17.  
  18. error:
  19. 'MESSAGE("Erreur en ligne 'SIGL'")'
  20. exit
  21.